sub vg5000init(tc1 as ubyte,tc2 as ubyte):
  poke $4803,tc1
  poke $4802,tc2
  asm
    call $009E
    end asm
  end sub

'- $4803 - colours for init
'- $4802 - ?
